Top 10k strings from HiSoft BASIC v1.2 +3 (1988)(HiSoft).dsk
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [DSK] (TOSEC-v2007-01-01) /
Back to the directory listing
38 Track-Info 3 or channel left open 3 X(I)=X(J): 3 Unrecognised hardware device 3 ;"SCORE:0" 3 ;" "; 2 y=sf*(x*s1+y*c1) 2 xn=x*c-y*s 2 xn=sf*(x*c1-y*s1) 2 to get descending orderchange the 2 sx=x*sc+cx 2 from QUICKSORT 2 YI=YI+B(M) 2 XI=XI+A(M): 2 RUNTIME 2 ;"PREPARE TO TIME ...PRESS ANY KEY": 2 (sx-sx1),(sy-sy1) 2 "SORTED";: 2 "RANDOM";: 2 "HOW MANY DATA POINTS? "'("(5-";NMAX;")"),N 2 " ARRAY OF ";N;" ELEMENTS": 2 1 {=\PLUS3DOS 1 z$="ASDFGHJKLQBIOPEM" 1 y=x*PLUS3DOS 1 xpecting a numbe 1 shift A delete BASIC 1 from Shellsort 1 count=count+1 1 count;" primes" 1 adapted from "Easy Programming for the ZX Spectrum",Ian Stewart,Robin Jones;Shiva Publishing,1982 1 YY=YY+B(D): 1 Y+B(D),X+A(D); 1 XX=XX+A(D) 1 X(MID)=X(J): 1 X(I)=X(I)-160 1 X(I)=X(I)-10 1 X same as CLEAR 65367 1 Too many variable 1 This routine uses the quicksort method to sort the array X() into ascending order 1 This routine uses the Shell-Metzner method to sort thearray X() into ascending order 1 That's all there i 1 TOAD 1 T type of variables 1 SPIN Disk Man 1 SOURCE=45000 1 SOURCE=16384 1 SOURCE+6911 1 SIEVE 1 SHELLSOR 1 SAVE "m/c"CODE 1 RESTORE 1500 1 R run compiled code 1 QUICKSOR 1 PUCKMAN 1 PIVOT=X(J): 1 PIVOT=X(J) 1 P output to printer 1 OKAY TO DELETE BASIC? (Y/N 1 Not supporte 1 Not enough room for m/ 1 Non-existent lin 1 No more spac 1 N=number of entries array X() must have been DIMed 1 N=number of entries Array X() must have been DIMed 1 LOAD "m/c"CODE 1 L(SP)<R(SP) 1 JUST PRESS ENTER TO RETURN 1 Invalid compiler directiv 1 HISOFT BASIC 1.2 Plus 3 Version 1 HIBASIC 1 HB128C 1 Expecting an intege 1 Exec address too hig 1 EXTENDED CPC DSK File 1 EXAMPLE6 1 EXAMPLE5 1 EXAMPLE4 1 EXAMPLE3 1 EXAMPLE2 1 EXAMPLE1 1 E compile except DATA 1 DO NOT TES 1 DESTINATION=DESTINATION+1 1 DESTINATION=45000 1 DESTINATION=16384 1 DESTINATION, 1 D compile only DATA 1 COMPILER COMMANDS 1 C$="MILK": 1 C$="COFFEE": 1 C compile 1 BEEP .01,I+J/16 1 BEEP .01,(J+32*I)/10 1 BEEP .005,10+A+B/21 1 ;P$(I,X(I) 1 ;N;" CAT";"S" 1 ;"HIGH SCORE:";HS;" by ";N$ 1 ;"Compiled with NEW HiSoft BASIC"; 1 ;"Compiled with NEW HiSoft BASIC" 1 ;" YOU SCORED ";S;" " 1 ;" A NEW HIGH SCORE!!! " 1 ;" Press ENTER for another game. " 1 ;" " 1 :,Track-Info 1 5"e\#Track-Info 1 2BE>a2=E2>E 1 20E2/E2.E::E 1 2#E2%E2$E2*E! 1 1986,7 Cameron Hayne 1 +i,j,k,size,count,prime,f() 1 +NMAX,N,J,K,JUMP 1 +NMAX,N,I,J,MID,SP,L(),R() 1 +N,J,I,X,Y,X0,Y0 1 *l\^#V#"l\ 1 *(X(I)>160 1 )=" 1 (from BASIC Programs for Scientists & Engineers,Alan Miller,SYBEX 1981) 1 (from "BASIC Programs for Scientists & Engineers",AlanMiller,SYBEX 1981) 1 (YI+B(I),XI+A(I)) 1 (Y+B(D),X+A(D)) 1 (BASIC WAS 1 '"Now loading..." 1 "The sum is ";N1+N2 1 "HiSoft BASIC Plus 3 version 1.2" 1 "Enter your name (max 6 letters):";N$ 1 "Enter the second number",N2 1 "Enter the number of your choice",N 1 "Enter the first number",N1 1 "ENTER YOUR FULL NAME",N$ 1 "Copyright 1 "1 COFFEE"'"2 TEA"'"3 MILK" 1 " ");A$(J) 1 of lines 9230,9241to 1 of line 9160 to 1 BYTES FOR M/C VARIABLES 1 1986,7 Cameron Hayne" 1 ZX PUCKMAN 1 ZX TOAD